﻿
Imports System.ComponentModel
Imports FountainHead.Model
Imports FountainHead.ViewModel.Properties

Namespace Controls

    Public Class LabelControlViewModel
        Inherits BaseControlViewModel
        Sub New()
            MyBase.New()
            labelModelValue = New LabelModel()
        End Sub

        Public Overloads ReadOnly Property Properties() As LabelControlProperties
            Get
                LabelControlProperties.LabelProperty.ViewModel = Me
                Return LabelControlProperties.LabelProperty
            End Get
        End Property

        Private labelModelValue As LabelModel
        Private ReadOnly Property LabelModel As LabelModel
            Get
                Return labelModelValue
            End Get
        End Property

        Public Property InputCurrent() As Current
            Get
                Return LabelModel.Current
            End Get
            Set(ByVal value As Current)
                LabelModel.Current = value
                'OnPropertyChanged(New PropertyChangedEventArgs("Input"))
            End Set
        End Property

    End Class
End Namespace